home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / lite411q.zip / SKELETON.BAS < prev    next >
BASIC Source File  |  1991-07-25  |  3KB  |  79 lines
  1. '============================================================================
  2. '
  3. '         SKELETON.BAS - Empty ProWindows(tm) User Interface Shell
  4. '                         ProWindows(tm) LITE 4.00
  5. '              (c) Copyright 1988-1991 DSE Software Publishing
  6. '
  7. '    PURPOSE:
  8. '         This module provides a basic framework for applications
  9. '         developed with ProWindows(tm) LITE.
  10. '
  11. '    NOTE:
  12. '         It is the developers responsibility to provide additional code
  13. '         to make this module work.
  14. '
  15. '==========================================================================
  16.  
  17. REM $DYNAMIC
  18. DEFINT A-Z
  19.  
  20. ' =======================================================================
  21. ' INCLUDE modules should follow
  22. ' =======================================================================
  23.  
  24. REM $INCLUDE: 'lite.bi'
  25.  
  26. CLEAR , , 4096                     ' Set aside additional stack space
  27.  
  28. ' =======================================================================
  29. ' These constants should be defined in ALL applications.
  30. ' =======================================================================
  31.  
  32. CONST WINMEMSIZE% = 8191           ' Window memory, used by 'VirMem%()'
  33. CONST SCRNMEMSIZE% = 4096          ' Screen storage memory, used by 'scrn%()'
  34. CONST MAXWINDOWS% = 30             ' Maximum number of windows
  35.  
  36. ' =======================================================================
  37. ' Be sure to DIM your variables
  38. ' =======================================================================
  39.  
  40. DIM SHARED VirMem(WINMEMSIZE) AS INTEGER
  41. DIM SHARED scrn(SCRNMEMSIZE) AS INTEGER
  42. DIM SHARED vcb(MAXWINDOWS) AS vircb
  43. DIM SHARED wcb(MAXWINDOWS) AS wincb
  44. DIM SHARED wcbndx(MAXWINDOWS) AS INTEGER
  45.  
  46. ' =======================================================================
  47. ' Program initialization code
  48. ' =======================================================================
  49.  
  50.     ReCycleMode 1                           ' enable "Video Recycling" saves 24K
  51.  
  52.     InitPro                                 ' initialize ProWindows
  53.     
  54.     MouseInstalled = CheckMouse(buttons)    ' install the mouse driver
  55.  
  56. ' =======================================================================
  57. ' Your code goes here
  58. ' =======================================================================
  59.     
  60. MainMenu:
  61.     
  62.     DO
  63.         
  64.         SELECT CASE GetEvent(0)
  65.             CASE 15                  ' <CR> was pressed
  66.                 END
  67.             CASE 16                  ' <ESC> was pressed
  68.                 END
  69.             CASE 17                  ' nothing happened for 1 second
  70.                 SOUND 32767, 1      ' just to let you know there is life
  71.             CASE 18                  ' <F1> was pressed
  72.                 BEEP
  73.             CASE ELSE
  74.  
  75.         END SELECT
  76.  
  77.     LOOP
  78.  
  79.